subroutine comput_flux2
use var
implicit none

    integer m,j
    
        do m=1,4
            call flux2_m(m)
            call flux2_p(m)
            do j=0,gridsx
                flux2(j,m)=fp2(j,m)+fm2(j,m)
            end do            
        end do


end subroutine